#!/usr/bin/perl -w
%delay;
foreach (@ARGV) {
$delay{$_} = 1;
}

while (<>) {
 if (/^##/) {
 delete $delay{$ARGV};
 }

}

@ARGV = sort keys %delay;
$^I = ".bak";
while (<>) {
  if (/^#!/) {
  $_ .= "## Copyright (c) 2012 by Alex\n";  
  }
print;
}

